840 PRINT " YOU GAIN "TV(A)" TREASURE POINTS.":TR = TR +TV(A): GOTO 450
850 REM *** MAGIC POWDER ? ***
860 IF A = 4 AND RND(1) >.7 THEN PRINT " YOUR STRENGTH POINTS": PRINT TAB( 8)"JUST DOUBLED!":HP = HP *2: GOSUB 2430: GOTO 450
870 REM ** STRENGTH POTION ? **
880 IF A = 9 THEN PRINT " YOU GAINED 300 STRENGTH POINTS!":HP = HP +300: GOTO 450
890 IF A < >7 THEN 840
900 REM ** A TREASURE CHEST **
910 PRINT " DO YOU WANT TO OPEN IT ? ";
920 POKE -16368,0: GET A$: IF A$ < >"Y" AND A$ < >"N" THEN 920
930 PRINT A$: PRINT : IF A$ = "N" THEN 840
940 IF RND(1) >.75 THEN HOME : VTAB 17: PRINT "THE CHEST CONTAINS A SWORD. IT": PRINT : PRINT "WILL KILL ANY DRAGON YOU MEET!": PRINT :MR = 1: GOSUB 2430: GOTO 450
950 IF RND(1) >.85 THEN HOME : VTAB 17: PRINT " THE CHEST WAS TRAPPED!": PRINT : PRINT "YOU DIED WHEN YOU OPENED IT.": GOSUB 2390: GOSUB 2200:HP = 0:DL = 0:TR = 0: GOTO 1660
1280 IF BA > = NB THEN PRINT : PRINT "IT ACCEPTS YOUR BRIBE.": GOTO 450
1290 REM ** MUST FIGHT ANYWAY **
1300 GOSUB 2270: HOME : PRINT "THE "MN$(X -4)" TOOK YOUR MONEY BUT": PRINT : PRINT " YOU DID NOT GIVE IT ENOUGH.": FOR J = 1 TO 1500: NEXT
1310 REM *** PLAYER DIES ***
1320 IF BA/NB <.75 THEN PRINT : INVERSE : HTAB 5: PRINT "THE "MN$(X -4)" KILLED YOU.": NORMAL :TR = 0:DL = 0:HP = 0: GOSUB 2390: GOSUB 2200: GOTO 1660
1330 PRINT : HTAB 6: PRINT "NOW YOU MUST ";: INVERSE : PRINT "FIGHT!": NORMAL : GOTO 1150
1340 REM *** PLAYER RUNS! ***
1350 HOME : PRINT : FLASH : HTAB 7: PRINT "RUN FOR YOUR LIFE!!!": NORMAL : FOR J = 1 TO 1500: NEXT
1360 GOSUB 2560: IF FL = 1 THEN FL = 0: PRINT : GOTO 1400
1370 REM ** MUST FIGHT ANYWAY **
1380 HOME : PRINT : IF RND(1) <.4 THEN PRINT TAB( 7)"YOU DIDN'T MAKE IT.": PRINT : PRINT TAB( 7)"NOW YOU MUST ": PRINT : PRINT TAB( 7);: INVERSE : PRINT "FIGHT THE "MN$(X -4)"!": NORMAL : GOTO 1150
1390 REM *** PLAYER DIES ***
1400 IF RND(1) >.8 THEN PRINT " THE "MN$(X -4)" KILLED YOU WHILE": PRINT : PRINT TAB( 6)"YOU WERE RUNNING AWAY.": GOSUB 2390: GOSUB 2200:HP = 0:DL = 0:TR = 0: GOTO 1660
1410 REM *** PLAYER MAKES IT ***
1420 PRINT TAB( 11)"YOU MADE IT!": FOR J = 1 TO 1500: NEXT
1560 X = MP(PY,PX):MP(PY,PX) = 2: VTAB PY: HTAB PX: FLASH : PRINT "^": NORMAL : GOTO 260
1570 REM ** YOU MADE IT OUT! **
1580 HOME : PRINT : PRINT "CONGRATULATIONS!!! YOU MADE IT": PRINT : PRINT "OUT OF THE FOREST ALIVE!!!": GOSUB 2490: GOSUB 2200
1590 REM ** DIDN'T FIND IDOL **
1600 HOME : IF DL = 0 THEN PRINT "UNFORTUNATELY, YOU DIDN'T FIND": PRINT : PRINT "THE IDOL SO YOU WERE SENT TO": PRINT : PRINT "THE MINES OF MONTEREY.": GOSUB 2200: GOTO 1660
1610 REM ** BONUS FOR IDOL **
1620 HOME :DL = 1000: PRINT "YOU FOUND THE IDOL! THE DWARVES": PRINT "DECLARE YOU THEIR HERO AND AWARD": PRINT "YOU 1000 TREASURE POINTS!": GOSUB 2200: GOTO 1660
1630 REM *** PLAYER DIES ***
1640 HOME : PRINT : PRINT " YOU RAN OUT OF STRENGTH!": PRINT : PRINT TAB( 8)"YOU ARE DEAD.":HP = 0:TR = 0:DL = 0: GOSUB 2390: GOSUB 2200: GOTO 1660
1650 REM ** FINAL STATISTICS **
1660 TEXT : HOME : HTAB 9: PRINT "*** ";: FLASH : PRINT "FINAL STATISTICS";: NORMAL : PRINT " ***"
1670 VTAB 3: PRINT TAB( 14)"MONSTERS KILLED": FOR J = 1 TO 39: PRINT "-";: NEXT : PRINT
1830 FOR J = 1 TO 5:X = PEEK( -16384): IF X = 217 OR X = 206 THEN NORMAL : GOTO 1770
1840 NEXT : IF S$ = "Y" THEN FOR J = (H1 -INC) *5 TO H1 *5 STEP INC: POKE 768,J: POKE 769,4: CALL 770: NEXT : GOTO 1860
1850 FOR J = 1 TO 10: NEXT
1860 H1 = H1 +INC:H2 = H2 -INC: IF H1 = 4 OR H1 = 20 THEN INC = -INC
1870 GOTO 1820
1880 REM ** PLAYER FOUND IDOL **
1890 HOME : FLASH : HTAB 5: PRINT "YOU FOUND THE IDOL!!!": NORMAL :FL = 1: GOSUB 2450
1900 PRINT : PRINT "UNFORTUNATELY, THERE IS A LARGE": PRINT : PRINT "DRAGON HERE WHO IS GUARDING IT.": PRINT : PRINT "DO YOU WANT TO ";: INVERSE : PRINT "F";: NORMAL : PRINT "IGHT OR ";: INVERSE : PRINT "R";: NORMAL : PRINT "UN ? ";
1910 REM *** FIGHT OR RUN ? ***
1920 POKE -16368,0: GET A$: IF A$ < >"F" AND A$ < >"R" THEN GOSUB 2310: GOTO 1920
1930 PRINT A$: IF A$ = "F" THEN X = 12: GOTO 1150
1940 GOTO 1350
1950 REM *** PLAYER QUITS ***
1960 HOME : PRINT : PRINT TAB( 10)"ARE YOU SURE": PRINT : PRINT TAB( 6)"YOU WANT TO QUIT ? ";
1970 POKE -16368,0: GET A$: IF A$ < >"Y" AND A$ < >"N" THEN GOSUB 2310: GOTO 1970
1980 IF A$ = "N" THEN PRINT : GOTO 450
1990 TR = 0:DL = 0:HP = 0: GOTO 1660
2000 REM *** INIT. VARIABLES ***
2010 DIM MN$(10),MS(10),ME$(5),TR$(10),TV(10),KM(10),MP(15,32)
2020 FOR J = 1 TO 10: READ MN$(J),MS(J): NEXT
2030 DATA CYCLOPS,50,WYVERN,300,BASILISK,350,SKELETON,200,MINOTAUR,100,GRIFFIN,150,HARPY,75,DRAGON,500,TROLL,125,GOBLIN,175
2390 GOSUB 2530: FOR J = 175 TO 255 STEP 5: POKE 768,J: POKE 769,20: CALL 770: POKE 768,J -10: POKE 769,10: CALL 770: NEXT : RETURN
2400 REM *** CONDOR SOUND ***
2410 GOSUB 2530: FOR J = 255 TO 30 STEP -15: POKE 768,J: POKE 769,25: CALL 770: NEXT : RETURN
2420 REM *** "BONUS" SOUND ***
2430 GOSUB 2530: FOR J = 1 TO 15: POKE 768,175: POKE 769,8: CALL 770: POKE 768,100: POKE 769,8: CALL 770: NEXT : RETURN
2440 REM *** IDOL SOUND ***
2450 GOSUB 2530: FOR J = 1 TO 4: FOR K = 20 TO 30: POKE 768,K: POKE 769,2: CALL 770: NEXT : FOR K = 30 TO 20 STEP -1: POKE 768,K: POKE 769,2: CALL 770: NEXT : NEXT : RETURN
2510 FOR J = 0 TO N:T = VAL( MID$ (D$,J *6 +1,3)):D = VAL( MID$ (D$,J *6 +4,3)): POKE 768,T: POKE 769,D: CALL 770: NEXT : RETURN
2520 REM * DID PLAYER WANT ANY SOUND ? *
2530 IF S$ = "N" THEN FOR J = 1 TO 1000: NEXT : POP
2540 RETURN
2550 REM ** PLAYER BOXED IN? **
2560 IF MP(PY,PX -1) = 1 AND MP(PY,PX +1) = 1 AND MP(PY -1,PX) = 1 AND MP(PY +1,PX) = 1 THEN POP : HOME : PRINT : PRINT " YOU BOXED YOURSELF IN!": PRINT : PRINT " YOU DIED FROM STARVATION.":HP = 0:DL = 0:TR = 0: GOSUB 2390: GOSUB 2200: GOTO 1660